home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Tools - Objects / Virtual User 1.0 / Virtual User / MPW Scripts / Uncomment_vu < prev   
Text File  |  1991-01-25  |  610b  |  22 lines
  1. #
  2. #    File:        Uncomment_vu
  3. #
  4. #    Contains:    This script uncomments the lines of a script in V.U. format.
  5. #                For each line that is at least partially in the current
  6. #                selection, a '#<one-character-of-whitespace>' will be removed
  7. #                from the beginning of the line.
  8. #
  9. #    Written by:    Chad Williams
  10. #
  11. #    Copyright:    © 1989-91 by Apple Computer, Inc., all rights reserved.
  12. #
  13. #    Change History:
  14. #
  15. #         1/9/91       chad        creation 
  16. #
  17.  
  18. SET lineCount `COUNT -l "{Active}".§` ≥ dev:null
  19. FIND §Δ "{Active}" ≥ dev:null
  20. FIND -c {lineCount} \•\ "{Active}" ≥ dev:null
  21. REPLACE -c {lineCount} /•#[ ∂t](≈)®1/ "®1" "{Active}" ≥ dev:null
  22.